$input = <STDIN>;

if(defined($input)){
	print "input success\n";
}else{
	print "input undef\n";
}

$input = undef;
if(defined($input)){
	print "input success\n";
}else{
	print "input undef\n";
}
